home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
demos
/
ensign.arj
/
ES5S.ZIP
/
ESPL5
< prev
next >
Wrap
Text File
|
1992-12-01
|
5KB
|
403 lines
ESPL5 TOOLKIT
:: TECH a - ANDREW'S PITCHFORK (use [= to mark points)
SR 3 79
SR 4 76
R 77
R 80
L 1 1 14
SR 3 78
SR 4 75
R 76
R+ 77
X/ 2
U
R- 75
X* 3
S 68
+
R 79
R+ 80
X/ 2
U
R- 78
X* 3
S 69
+
L 1 1 15
SR 3 79
SR 4 76
R 68
R+ 76
R 69
R+ 79
L 1 1 10
SR 3 80
SR 4 77
R 68
R+ 77
R 69
R+ 80
L 1 1 10
SR 3 79
SR 4 76
R 76
R+ 77
X/ 2
R- 76
S- 4
R 79
R+ 80
X/ 2
R- 79
S- 3
R 4
R+ 68
R 3
R+ 69
L 1 1 12
SR 3 80
SR 4 77
R 76
R+ 77
X/ 2
R- 77
S- 4
R 79
R+ 80
X/ 2
R- 80
S- 3
R 4
R+ 68
R 3
R+ 69
L 1 1 12
FO
JF
:: TECH s -PRIME LINES
SR 3 78
SR 4 75
R 76
R- 75
X* 2
R+ 76
R 79
R- 78
X* 2
R+ 79
L 1 1 14 -1.0
SR 3 79
SR 4 76
R 77
R 80
L 1 1 14 -B.C
SR 3 78
SR 4 75
R 76
R+ 77
X/ 2
U
R- 75
X* 3
+
R 79
R+ 80
X/ 2
U
R- 78
X* 3
+
L 1 1 12 -.5
R 77
X* 7
R 76
X* 25
+
X/ 32
S 4
R- 75
X* 2.5
R+ 4
R 79
X* 3
R+ 80
X/ 4
S 3
R- 78
X* 2.5
R+ 3
L 1 1 6 -.78
R 77
X* 3
R 76
X* 5
+
X/ 8
S 4
R- 75
X* 2.75
R+ 4
R 80
X* 3
R 79
X* 5
+
X/ 8
S 3
R- 78
X* 2.75
R+ 3
L 1 1 13 -.62
R 77
X* 5
R 76
X* 3
+
X/ 8
S 4
R- 75
X* 2.75
R+ 4
R 80
X* 5
R 79
X* 3
+
X/ 8
S 3
R- 78
X* 2.75
R+ 3
L 1 1 10 -.38
FO
JF
:: TECH f -FIBONACCI RETRACEMENT OBJECTIVE
SR 3 79 -x1 = 1st index position
SR 4 76 -y1 = 1st price
R 77 -Get 2nd price
R 80 -Get 2nd index
L 1 1 14 -Line from 1st point to 2nd point
R 77
R- 76
S 92 -Reg(92) = RANGE
X* .05
S 93 -Reg(93) = 5% RANGE
R 92
X* 1.618
R 77
E
- -Forecast price objective
R 80
R- 79
S 94
X* 1.618
R+ 80 -Forecast new index
L 1 1 14 -Line from 2nd point to forecast point
E
R 93
S+ 4 -Add 5% of range to forecast
- -Subtract 5% of range to forecast
R 3
X+ 2.5 -Width of box is +/- 2.5 bars
S- 3 2.5
LB 1 1 13 -Price objective box
R 76
R+ 93
S 4
R 76
R- 93
R 80
R+ 94
S 3
S+ 3 2.5
X- 2.5
LB 1 1 13
R 77
R 92
X* .618
-
U
R- 93
S 4
D
R+ 93
R 94
X* .618
R+ 80
S 3
S+ 3 2.5
X- 2.5
LB 1 1 13
FO
JF
:: TECH h -Print Chart bar data & TECH 1,2,3 arrays
I3
X- 50
J- 1 2 1
X= 1
IS -Set INDEX to last-50 or 1
PD 1 -Output to printer
PS DATE -Print header titles
PS OPEN
PS HIGH
PS LOW
PS CLOSE
PS VOLUME
PS OP-CLK
PS TECH-1
PS TECH-2
PT TECH-3
S= 10 0
AD -Date
PX ######
S+ 10 1
R 10
AT
PX ########
R 10
J0 1 -5 9
PT -Carriage return
S+ 1 1 -Point to next bar
I3
J< 1 -12 1
PV 12 -Form feed paper
PD 0 -Restore output to screen
FO -Turn this technical off
JF
:: TECH V -EQUI-VOLUME
IC
I3
IS
S= 60 0
X= 10
S- 1 1
AV
S+ 60
D
X- 1
J+ -5
X= 10
S/ 60
I3
IS
S= 3 550
AL
S 4
IR
J+ 2
JF
R 3
AV
R/ 60
X* 8
-
J+ 2
JF
AH
E
SR 61 3
AN
J- 4
D
LF 1 0 14
J 3
D
LF 1 0 12
SR 62 3
SR 63 4
AM
S 4
R 61
S 3
X- 3
L 1 0 0
SR 3 62
SR 4 63
S- 1 1
S- 3 2
J -34
:: TECH r -BOND SUPPORT AND RESISTANCE (press [l first)
BA 75 77
S 25
U
+
U
Bm 75 77
-
S 26 -H1 = MIDPOINT * 2 - LOW
E
BM 75 77
-
S 27 -L1 = MIDPOINT * 2 - HIGH
BM 75 77
Bm 75 77
- -RANGE = HIGH - LOW
U
R+ 25
S 28 -H2 = MIDPOINT + RANGE
E
R- 25
XC -Change sign
S 29 -L2 = MIDPOINT - RANGE
FI
S 3
I3
S 4
L@ 1 25 10 -Plot midpoint, GREEN
L@ 1 26 12 -Plot H1, RED
L@ 1 27 12 -Plot L1, RED
L@ 1 28 13 -Plot H2, PURPLE
L@ 1 29 13 -Plot L2, PURPLE
FO -Turn off TECH request
JF -Exit single pass
:: TECH l -LOAD YESTERDAYS HIGH,LOW,CLOSE
I3 FOR BOND SUPPORT & RESISTANCE Tool
IS
FD -Get today's date
AD -Get bar's date
J< 3 -Jump when at yesterday's date
S- 1 1 -Decrement index
J -4 -Loop to test dates again
AH
S 75
AL
S 76
AC
S 77
JF -Exit single pass
:: TECH = -Mark Chart points for other ESPL tools
BL 75 77 -PV=(H+L+C)/3 HI=PV+(PV-L) LO=PV-(H-PV)
FP -Get cursor PRICE
S 77
BL 78 80
FI -Get cursor index
S 80
FO
PN 1 800
JF
:: TECH d -TURN DEBUG MODE ON & DISPLAY STACK REGISTERS
FB 1 0 3 -Breakpoint ON, don't pause, display Reg(3)
FO -Function off
JF
:: TECH z -Write bars on chart to a file.
I3
X= 1
BW
JF
:: TECH 1 -Move 1st column to 3rd column
AX
Az
JE
-END OF TOOLKIT